home *** CD-ROM | disk | FTP | other *** search
/ Grapevine 20 / Grapevine 20 (Disk 1 of 2).adf / Files / arexxexamps.lha / ARTICLES / AREXX_EXAMPLES / Example10.rexx < prev    next >
OS/2 REXX Batch file  |  1980-01-07  |  488b  |  16 lines
  1. /* Example 10 */
  2.  
  3. Say "Enter Group Name : "
  4. Parse Pull gname
  5.  
  6. gname = upper(gname)  /* Up Case All Characters */
  7.  
  8. Select
  9.    When gname = "LSD " Then Say "Grapevine is the Best."
  10.    When gname = "THE LOC" Then Do
  11.                                Say "Erotic Stories 5 ECS"
  12.                                Say "and AGA Versions Out Now !!"
  13.                                End
  14.    When gname = "SCOOPEX " Then Say "Bag Of Shite Of A Group !!!"
  15.    Otherwise Say "Which Group Is That Sorry ???"
  16. End